sub mc1000vpokechr4x6mode96(tadrv as uinteger,tchrv as uinteger,tchmadr as uinteger,tyof as uinteger):
  tadrv=tadrv mod 1024
  for typv=0 to 1
    poke 32768+((typv+tyof)*32)+((tadrv mod 16)*2)+((int(tadrv/16))*64),peek(tchmadr+(tchrv*4)+(typv*2))
    poke 32769+((typv+tyof)*32)+((tadrv mod 16)*2)+((int(tadrv/16))*64),peek(tchmadr+(tchrv*4)+(typv*2)+1)
    next
  end sub


